object FrmAlteracaoRapidaProdutos: TFrmAlteracaoRapidaProdutos
  Left = 429
  Top = 181
  BorderStyle = bsSingle
  Caption = 'Altera'#231#227'o R'#225'pida de Produtos'
  ClientHeight = 520
  ClientWidth = 800
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefault
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object plFiltros: TPanel
    Left = 0
    Top = 40
    Width = 800
    Height = 131
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 8
      Width = 41
      Height = 13
      Caption = 'Empresa'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 408
      Top = 8
      Width = 30
      Height = 13
      Caption = 'Marca'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 8
      Top = 48
      Width = 31
      Height = 13
      Caption = 'Se'#231#227'o'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 408
      Top = 48
      Width = 48
      Height = 13
      Caption = 'Subse'#231#227'o'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object LblProduto: TLabel
      Left = 8
      Top = 88
      Width = 37
      Height = 13
      Caption = 'Produto'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label13: TLabel
      Left = 472
      Top = 88
      Width = 39
      Height = 13
      Caption = 'Usu'#225'rio:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object lbUsuario: TLabel
      Left = 472
      Top = 109
      Width = 225
      Height = 13
      AutoSize = False
      Caption = 'C'#243'digo e Nome do Usu'#225'rio'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object btnPesquisar: TButton
      Left = 704
      Top = 104
      Width = 83
      Height = 25
      Caption = '&Pesquisar'
      TabOrder = 15
      OnClick = btnPesquisarClick
    end
    object edtEmpresa: TEdit
      Left = 8
      Top = 24
      Width = 49
      Height = 21
      Hint = 'Empresa'
      TabOrder = 0
      OnExit = edtEmpresaExit
      OnKeyPress = KeyPress_SomenteInteiro
    end
    object BtnEmpresa: TBitBtn
      Left = 57
      Top = 24
      Width = 21
      Height = 21
      Caption = '...'
      TabOrder = 1
      TabStop = False
      OnClick = BtnEmpresaClick2
    end
    object stEmpresa: TStaticText
      Left = 78
      Top = 24
      Width = 305
      Height = 21
      AutoSize = False
      BorderStyle = sbsSingle
      TabOrder = 2
    end
    object edtMarca: TEdit
      Left = 408
      Top = 24
      Width = 121
      Height = 21
      Hint = 'Marca'
      MaxLength = 15
      TabOrder = 3
      OnExit = edtMarcaExit
    end
    object BtnMarca: TBitBtn
      Left = 528
      Top = 24
      Width = 21
      Height = 21
      Caption = '...'
      TabOrder = 4
      TabStop = False
      OnClick = BtnMarcaClick
    end
    object stMarca: TStaticText
      Left = 549
      Top = 24
      Width = 228
      Height = 21
      AutoSize = False
      BorderStyle = sbsSingle
      TabOrder = 5
    end
    object edtSecao: TEdit
      Left = 8
      Top = 64
      Width = 49
      Height = 21
      Hint = 'C'#243'digo de Se'#231#227'o'
      MaxLength = 3
      TabOrder = 6
      OnChange = edtSecaoChange
      OnExit = edtSecaoExit
    end
    object btnSecao: TBitBtn
      Left = 57
      Top = 64
      Width = 21
      Height = 21
      Caption = '...'
      TabOrder = 7
      TabStop = False
      OnClick = btnSecaoClick2
    end
    object stSecao: TStaticText
      Left = 78
      Top = 64
      Width = 305
      Height = 21
      AutoSize = False
      BorderStyle = sbsSingle
      TabOrder = 8
    end
    object edtSubSecao: TEdit
      Left = 408
      Top = 64
      Width = 49
      Height = 21
      Hint = 'C'#243'digo de Se'#231#227'o'
      MaxLength = 3
      TabOrder = 9
      OnExit = edtSubSecaoExit
    end
    object btnSubSecao: TBitBtn
      Left = 456
      Top = 64
      Width = 21
      Height = 21
      Caption = '...'
      TabOrder = 10
      TabStop = False
      OnClick = btnSubSecaoClick
    end
    object stSubSecao: TStaticText
      Left = 478
      Top = 64
      Width = 297
      Height = 21
      AutoSize = False
      BorderStyle = sbsSingle
      TabOrder = 11
    end
    object edtProduto: TEdit
      Left = 8
      Top = 104
      Width = 121
      Height = 21
      Hint = 'Produto'
      MaxLength = 13
      TabOrder = 12
      OnExit = edtProdutoExit
      OnKeyPress = KeyPress_SomenteInteiro
    end
    object BtnProduto: TBitBtn
      Left = 136
      Top = 104
      Width = 21
      Height = 21
      Caption = '...'
      TabOrder = 13
      TabStop = False
      OnClick = BtnProdutoClick
    end
    object StProduto: TStaticText
      Left = 160
      Top = 104
      Width = 299
      Height = 21
      AutoSize = False
      BorderStyle = sbsSingle
      TabOrder = 14
    end
  end
  object dbgrdAlteracao: TDBGrid
    Left = 0
    Top = 171
    Width = 800
    Height = 225
    Align = alClient
    DataSource = dtsAlteracao
    Enabled = False
    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnKeyPress = dbgrdAlteracaoKeyPress
    Columns = <
      item
        Expanded = False
        FieldName = 'ESP_CODIGO'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ESP_DESCRI'
        Title.Alignment = taCenter
        Width = 268
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ESE_PREVEN'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MAR_NOME'
        Title.Alignment = taCenter
        Width = 154
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ESE_SITCOD'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ESP_REFERE'
        Title.Alignment = taCenter
        Visible = True
      end>
  end
  object plRegistros: TPanel
    Left = 0
    Top = 396
    Width = 800
    Height = 124
    Align = alBottom
    Enabled = False
    TabOrder = 2
    object Label7: TLabel
      Left = 8
      Top = 8
      Width = 48
      Height = 13
      Caption = 'Descri'#231#227'o'
      FocusControl = DBEdit1
    end
    object Label2: TLabel
      Left = 416
      Top = 8
      Width = 40
      Height = 13
      Caption = 'Unidade'
    end
    object Label8: TLabel
      Left = 480
      Top = 8
      Width = 52
      Height = 13
      Caption = 'Refer'#234'ncia'
      FocusControl = DBEdit3
    end
    object Label9: TLabel
      Left = 8
      Top = 48
      Width = 57
      Height = 13
      Caption = 'Localiza'#231#227'o'
      FocusControl = DBEdit4
    end
    object Label3: TLabel
      Left = 152
      Top = 48
      Width = 77
      Height = 13
      Caption = 'Pre'#231'o de Venda'
      FocusControl = DBEdit5
    end
    object Label10: TLabel
      Left = 272
      Top = 48
      Width = 86
      Height = 13
      Caption = 'Pre'#231'o do Atacado'
      FocusControl = DBEdit6
    end
    object Label11: TLabel
      Left = 392
      Top = 48
      Width = 89
      Height = 13
      Caption = 'Situa'#231#227'o Tribut'#225'ria'
    end
    object Label12: TLabel
      Left = 592
      Top = 48
      Width = 109
      Height = 13
      Caption = 'Classifica'#231#227'o Tribut'#225'ria'
    end
    object btnSalvar: TBitBtn
      Left = 8
      Top = 88
      Width = 97
      Height = 25
      Caption = '&Salvar Altera'#231#245'es'
      TabOrder = 7
      OnClick = btnSalvarClick
    end
    object btnDescartar: TBitBtn
      Left = 112
      Top = 88
      Width = 109
      Height = 25
      Caption = '&Descartar Altera'#231#227'o'
      TabOrder = 8
      OnClick = btnDescartarClick
    end
    object DBEdit1: TDBEdit
      Left = 8
      Top = 24
      Width = 401
      Height = 21
      CharCase = ecUpperCase
      DataField = 'ESP_DESCRI'
      DataSource = dtsAlteracao
      TabOrder = 0
      OnEnter = EditOnEnter
    end
    object DBEdit3: TDBEdit
      Left = 480
      Top = 24
      Width = 305
      Height = 21
      CharCase = ecUpperCase
      DataField = 'ESP_REFERE'
      DataSource = dtsAlteracao
      TabOrder = 1
      OnEnter = EditOnEnter
    end
    object DBEdit4: TDBEdit
      Left = 8
      Top = 64
      Width = 134
      Height = 21
      CharCase = ecUpperCase
      DataField = 'ESE_LOCAL'
      DataSource = dtsAlteracao
      TabOrder = 2
      OnEnter = EditOnEnter
    end
    object DBEdit5: TDBEdit
      Left = 152
      Top = 64
      Width = 113
      Height = 21
      DataField = 'ESE_PREVEN'
      DataSource = dtsAlteracao
      TabOrder = 3
      OnEnter = EditOnEnter
    end
    object DBEdit6: TDBEdit
      Left = 272
      Top = 64
      Width = 113
      Height = 21
      DataField = 'ESE_PREATA'
      DataSource = dtsAlteracao
      TabOrder = 4
      OnEnter = EditOnEnter
    end
    object cmbbxClassificacao: TDBLookupComboBox
      Left = 592
      Top = 64
      Width = 201
      Height = 21
      BevelOuter = bvNone
      BevelKind = bkFlat
      DataField = 'ESE_IPICOD'
      DataSource = dtsAlteracao
      DropDownRows = 10
      KeyField = 'IPI_CODIGO'
      ListField = 'IPI_DESCRI'
      ListFieldIndex = 1
      ListSource = dtsClassificacao
      TabOrder = 6
      OnKeyPress = cmbbxClassificacaoKeyPress
    end
    object cmbbxSituacao: TDBLookupComboBox
      Left = 392
      Top = 64
      Width = 193
      Height = 21
      BevelOuter = bvNone
      BevelKind = bkFlat
      DataField = 'ESE_SITCOD'
      DataSource = dtsAlteracao
      DropDownRows = 10
      KeyField = 'SIT_CODIGO'
      ListField = 'SIT_DESCRI'
      ListFieldIndex = 1
      ListSource = dtsSituacao
      TabOrder = 5
      OnKeyPress = cmbbxSituacaoKeyPress
    end
    object dbcbUnidade: TDBLookupComboBox
      Left = 416
      Top = 24
      Width = 57
      Height = 21
      DataField = 'UNI_CODIGO'
      DataSource = dtsAlteracao
      KeyField = 'UNI_CODIGO'
      ListField = 'UNI_CODIGO'
      ListSource = dtsUnidade
      TabOrder = 9
      OnKeyPress = dbcbUnidadeKeyPress
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 800
    Height = 40
    Align = alTop
    BevelInner = bvLowered
    BorderWidth = 2
    Caption = 'Altera'#231#227'o R'#225'pida de Produtos'
    Color = clWhite
    Ctl3D = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -27
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold, fsItalic]
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 3
  end
  object dtsAlteracao: TDataSource
    DataSet = CDS_DATASET_PRINCIPAL
    Left = 376
    Top = 256
  end
  object dtsClassificacao: TDataSource
    DataSet = SQLC_Classificacao
    Left = 600
    Top = 256
  end
  object dtsSituacao: TDataSource
    DataSet = SQL_SITUACAO
    Left = 560
    Top = 256
  end
  object dtsUnidade: TDataSource
    DataSet = SQL_UNIDADES
    Left = 520
    Top = 256
  end
  object sp_CadastrarAlteracaoPreco: TZStoredProc
    Connection = DtmGeral.ZConexaoBanco
    Params = <
      item
        DataType = ftSmallint
        Name = 'PRA_IDFEMPRESA'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'PRA_IDFPRODUTO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'PRA_USUARIO'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'PRA_PRECONOVO'
        ParamType = ptInput
      end>
    StoredProcName = 'SP_CADASTRAR_ALTERACAO_PRECO'
    Left = 200
    Top = 224
    ParamData = <
      item
        DataType = ftSmallint
        Name = 'PRA_IDFEMPRESA'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'PRA_IDFPRODUTO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'PRA_USUARIO'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'PRA_PRECONOVO'
        ParamType = ptInput
      end>
  end
  object sql_dataset_principal: TZQuery
    Connection = DtmGeral.ZConexaoBanco
    SQL.Strings = (
      'select'
      '  ep.esp_idfcod,'
      '  ep.esp_codigo,'
      '  ep.esp_descri,'
      '  ee.ese_preven,'
      '  m.mar_nome,'
      '  ee.ese_sitcod,'
      '  ep.esp_refere,'
      '  ep.uni_codigo,'
      '  ee.ese_local,'
      '  ee.ese_preata,'
      '  ee.ese_ipicod'
      'from estoque_produto ep'
      ''
      'inner join estoque_empresa ee'
      'on ee.ese_idfcod = ep.esp_idfcod'
      ''
      'inner join marca m'
      'on m.mar_codigo = ep.esp_marcod')
    Params = <>
    Left = 72
    Top = 304
  end
  object SQL_SITUACAO: TZReadOnlyQuery
    Connection = DtmGeral.ZConexaoBanco
    SQL.Strings = (
      'select'
      '  SIT_CODIGO,'
      
        '  SIT_CODIGO || case when SIT_ALQICM is null then '#39#39' else '#39' - '#39' ' +
        '|| SIT_ALQICM end || '#39' - '#39' || SIT_DESCRI as SIT_DESCRI'
      'from SITUACAO')
    Params = <>
    Left = 560
    Top = 296
  end
  object SQLC_Classificacao: TZReadOnlyQuery
    Connection = DtmGeral.ZConexaoBanco
    SQL.Strings = (
      'select'
      '  IPI_CODIGO,'
      
        '  IPI_CODIGO || case when IPI_ALQIPI is null then '#39#39' else '#39' - '#39' ' +
        '|| IPI_ALQIPI end || '#39' - '#39' || IPI_DESCRI as IPI_DESCRI'
      'from IPI')
    Params = <>
    Left = 600
    Top = 300
  end
  object DSP_PRINCIPAL: TDataSetProvider
    DataSet = sql_dataset_principal
    Left = 224
    Top = 320
  end
  object CDS_DATASET_PRINCIPAL: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSP_PRINCIPAL'
    BeforeOpen = sql_dataset_principalBeforeOpen
    AfterOpen = sql_dataset_principalAfterOpen
    AfterClose = sql_dataset_principalAfterClose
    BeforeEdit = sql_dataset_principalBeforeEdit
    AfterEdit = sql_dataset_principalAfterEdit
    AfterPost = sql_dataset_principalAfterPost
    AfterCancel = sql_dataset_principalAfterCancel
    AfterScroll = sql_dataset_principalAfterScroll
    Left = 320
    Top = 296
    object CDS_DATASET_PRINCIPALESP_IDFCOD: TIntegerField
      FieldName = 'ESP_IDFCOD'
      Required = True
    end
    object CDS_DATASET_PRINCIPALESP_CODIGO: TStringField
      FieldName = 'ESP_CODIGO'
      Required = True
      Size = 13
    end
    object CDS_DATASET_PRINCIPALESP_DESCRI: TStringField
      FieldName = 'ESP_DESCRI'
      Required = True
      Size = 40
    end
    object CDS_DATASET_PRINCIPALESE_PREVEN: TFloatField
      FieldName = 'ESE_PREVEN'
    end
    object CDS_DATASET_PRINCIPALMAR_NOME: TStringField
      FieldName = 'MAR_NOME'
      Required = True
      Size = 40
    end
    object CDS_DATASET_PRINCIPALESE_SITCOD: TStringField
      FieldName = 'ESE_SITCOD'
      Required = True
      Size = 2
    end
    object CDS_DATASET_PRINCIPALESP_REFERE: TStringField
      FieldName = 'ESP_REFERE'
    end
    object CDS_DATASET_PRINCIPALUNI_CODIGO: TStringField
      FieldName = 'UNI_CODIGO'
      Size = 3
    end
    object CDS_DATASET_PRINCIPALESE_LOCAL: TStringField
      FieldName = 'ESE_LOCAL'
      Size = 10
    end
    object CDS_DATASET_PRINCIPALESE_PREATA: TFloatField
      FieldName = 'ESE_PREATA'
    end
    object CDS_DATASET_PRINCIPALESE_IPICOD: TStringField
      FieldName = 'ESE_IPICOD'
      Required = True
      Size = 2
    end
  end
  object SQL_UNIDADES: TZReadOnlyQuery
    Connection = DtmGeral.ZConexaoBanco
    SQL.Strings = (
      'SELECT UNI_CODIGO, UNI_DESCRICAO FROM UNIDADE')
    Params = <>
    Left = 520
    Top = 296
  end
end
